How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/egyptw.dir/01710_Script_Home

Text File | 1995-09-13 | 7KB | 306 lines

global gQuest, gBeenClicked, gHouseIsOpen

on EHomeRollovers
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if the mouseCast = the castnum of sprite 10 then
      repeat while the mouseCast = the castnum of sprite 10
        EgyptCursor
        set the locH of sprite 12 to 203
        set the locV of sprite 12 to 325
        updatestage
        if the mousedown then
          RemoveTheHouse
        end if
      end repeat
      set the locH of sprite 12 to 900
      updatestage
    else
      if rollover(13) then
        ArrowCursor
        repeat while rollover(13)
          if gHouseIsOpen = 1 then
            set the locH of sprite 14 to 363
            set the locV of sprite 14 to 246
            updatestage
          else
            set the locH of sprite 15 to 364
            set the locV of sprite 15 to 242
            updatestage
          end if
        end repeat
        set the locH of sprite 14 to 963
        set the locH of sprite 15 to 964
        updatestage
      else
        if rollover(8) then
          MoveTheGoat
        else
          if rollover(41) then
            HandCursor
          else
            if rollover(42) then
              HandCursor
            else
              ArrowCursor
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on ERoom1Rollovers
  if rollover(12) then
    ArrowCursor
    repeat while rollover(12)
      set the locH of sprite 13 to 315
      set the locV of sprite 13 to 113
      updatestage
    end repeat
    set the locH of sprite 13 to 915
    updatestage
  else
    if rollover(14) then
      ArrowCursor
      repeat while rollover(14)
        set the locH of sprite 15 to 199
        set the locV of sprite 15 to 149
        updatestage
      end repeat
      set the locH of sprite 15 to 999
      updatestage
    else
      if rollover(8) then
        MoveTheGoat
      else
        if rollover(41) then
          HandCursor
        else
          if rollover(42) then
            HandCursor
          else
            ArrowCursor
          end if
        end if
      end if
    end if
  end if
end

on ERoom2Rollovers
  if rollover(12) then
    ArrowCursor
    repeat while rollover(12)
      set the locH of sprite 13 to 436
      set the locV of sprite 13 to 221
      updatestage
    end repeat
  else
    if rollover(8) then
      MoveTheGoat
    else
      if rollover(41) then
        HandCursor
      else
        if rollover(42) then
          HandCursor
        else
          ArrowCursor
        end if
      end if
    end if
  end if
end

on ERoom3Rollovers
  if rollover(12) then
    ArrowCursor
    repeat while rollover(12)
      set the locH of sprite 13 to 366
      set the locV of sprite 13 to 150
      updatestage
    end repeat
  else
    if rollover(14) then
      ArrowCursor
      repeat while rollover(14)
        set the locH of sprite 15 to 447
        set the locV of sprite 15 to 225
        updatestage
      end repeat
    else
      if rollover(16) then
        ArrowCursor
        repeat while rollover(16)
          set the locH of sprite 17 to 552
          set the locV of sprite 17 to 387
          updatestage
        end repeat
      else
        if rollover(8) then
          MoveTheGoat
        else
          if rollover(41) then
            HandCursor
          else
            if rollover(42) then
              HandCursor
            else
              ArrowCursor
            end if
          end if
        end if
      end if
    end if
  end if
end

on ERoom4Rollovers
  if rollover(12) then
    ArrowCursor
    repeat while rollover(12)
      set the locH of sprite 13 to 389
      set the locV of sprite 13 to 362
      updatestage
    end repeat
  else
    if rollover(14) then
      ArrowCursor
      repeat while rollover(14)
        set the locH of sprite 15 to 529
        set the locV of sprite 15 to 131
        updatestage
      end repeat
    else
      if rollover(16) then
        ArrowCursor
        repeat while rollover(16)
          set the locH of sprite 17 to 355
          set the locV of sprite 17 to 118
          updatestage
        end repeat
      else
        if rollover(18) then
          ArrowCursor
          repeat while rollover(18)
            set the locH of sprite 24 to 460
            set the locV of sprite 24 to 247
            updatestage
          end repeat
        else
          if rollover(25) then
            ArrowCursor
            repeat while rollover(25)
              set the locH of sprite 26 to 457
              set the locV of sprite 26 to 314
              updatestage
            end repeat
          else
            if rollover(27) then
              ArrowCursor
              repeat while rollover(27)
                set the locH of sprite 28 to 551
                set the locV of sprite 28 to 387
                updatestage
              end repeat
            else
              if rollover(8) then
                MoveTheGoat
              else
                if rollover(9) then
                  ArrowCursor
                  repeat while rollover(9)
                    set the locH of sprite 23 to 201
                    set the locV of sprite 23 to 148
                    updatestage
                  end repeat
                else
                  if rollover(41) then
                    HandCursor
                  else
                    if rollover(42) then
                      HandCursor
                    else
                      ArrowCursor
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on RemoveTheHouse
  puppetsound "SE300500.AIF"
  updatestage
  wait .5
  set gHouseIsOpen = 1
  puppetsprite 10, true
  set the locH of sprite 10 to 900
  updatestage
end

on ReplaceTheHouse
  set gHouseIsOpen = 0
  set the locH of sprite 10 to 458
  set the locV of sprite 10 to 321
  puppetsprite 10, false
  puppetsprite 8, false
  updatestage
  go "YourHomeX"
end

on ResetYourHome
  set the locH of sprite 10 to 458
  set the locV of sprite 10 to 321
  puppetsprite 8, false
  go "YourHomeX"
end

on MoveTheGoat
  set beingdragged = 0
  HandCursor
  repeat while rollover(8) and the mousedown
    set the constraint of sprite 8 to 7
    set beingdragged = 1
    set the locH of sprite 8 = the mouseH
    set the locV of sprite 8 = the mouseV
    updatestage
  end repeat
  if beingdragged = 1 then
    if sprite 8 intersects 19 then
      resetQuestionMark(gQuest)
      go "Room1"
      abort
    else
      if sprite 8 intersects 20 then
        resetQuestionMark(gQuest)
        go "Room2"
        abort
      else
        if sprite 8 intersects 21 then
          resetQuestionMark(gQuest)
          go "Room3"
          abort
        else
          if sprite 8 intersects 22 then
            resetQuestionMark(gQuest)
            go "Room4"
            abort
          else
            go "YourHomeX"
          end if
        end if
      end if
    end if
  end if
end